Перевод целого из десятичного представления

Входные данные: Число, Основание

Пока Число больше нуля Делать
      Цифра= остаток от деление Числа на Основание
      Число:= частному от целочисленного деления Числа на Основание